home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / EFMUILib / Examples / EFEnvBrowser.asc < prev    next >
Encoding:
Text File  |  1998-06-24  |  2.9 KB  |  123 lines
  1. ;(EF) EnvBrowser
  2. ;(c)1992-1997 by Stefan Stuntz
  3. ;(c)1997/98 by Vivid Imagination
  4.  
  5. WBStartup
  6.  
  7. #GVF_GLOBAL_ONLY=$100
  8. #GVF_BINARY_VAR=$400
  9.  
  10. #ID_DISPLAY=1
  11. #ID_EDIT=2
  12. #ID_DELETE=3
  13. #ID_SAVE=4
  14.  
  15. MUIApplicationTitle       "EnvBrowser"
  16. MUIApplicationVersion     "$VER: EnvBrowser 19.5 (12.02.97)"
  17. MUIApplicationCopyright   "(c)1992/93, Stefan Stuntz"
  18. MUIApplicationAuthor      "Stefan Stuntz"
  19. MUIApplicationDescription "View environment variables."
  20. MUIApplicationBase        "ENVBROWSER"
  21.  
  22.   MUIAddTags 1,#MUIA_Frame,#MUIV_Frame_InputList
  23.   MUIAddTags 1,#MUIA_Dirlist_Directory,Null("env:")
  24.   MUIAddTags 1,#MUIA_Dirlist_FilterDrawers,1
  25.   MUIAddTags 1,#MUIA_List_Format,Null("COL=0")
  26.   MUINewObject 1,"Dirlist.mui",0
  27.   MUIListView 2,1
  28.  
  29.   MUIAddObjHGroup 5,2
  30.  
  31.   MUIAddTags 3,#MUIA_Frame,#MUIV_Frame_ReadList
  32.   MUIAddTags 3,#MUIA_Font,#MUIV_Font_Fixed
  33.   MUINewObject 3,"Floattext.mui",0
  34.   MUIListView 4,3
  35.  
  36.   MUIAddObjHGroup 5,4
  37.  
  38. MUICreateHGroup 5
  39. MUIAddObjVGroup 0,5
  40.  
  41.   MUISimpleButton 6,"_Edit"
  42.   MUISimpleButton 7,"_Delete"
  43.   MUISimpleButton 8,"_Save"
  44.  
  45.   MUIAddObjsHGroup 9,6,7,8
  46.  
  47.   MUIAddTags 9,#MUIA_Group_SameSize,1
  48.  
  49. MUICreateHGroup 9
  50. MUIAddObjVGroup 0,9
  51.  
  52. MUICreateVGroup 0
  53.  
  54. MUICreateWindow 10,"Environment Browser","MAIN",0
  55. MUIAddSubWindow 10
  56.  
  57. If MUICreateApplication<>True Then End
  58.  
  59. MUIApplicationObj 11
  60.  
  61. MUINotifyApp 10,#MUIA_Window_CloseRequest,1,-1
  62. MUINotifyApp 2,#MUIA_List_Active,#MUIV_EveryTime,#ID_DISPLAY
  63. MUINotifyApp 2,#MUIA_Listview_DoubleClick,1,#ID_EDIT
  64. MUINotifyApp 7,#MUIA_Pressed,0,#ID_DELETE
  65. MUINotifyApp 8,#MUIA_Pressed,0,#ID_SAVE
  66. MUINotifyApp 6,#MUIA_Pressed,0,#ID_EDIT
  67.  
  68. MUIDoMethod 10,#MUIM_Window_SetCycleChain,MUIObjLoc(2),MUIObjLoc(4),MUIObjLoc(6),MUIObjLoc(7),MUIObjLoc(8),0
  69.  
  70. MUIOpenWindow 10
  71.  
  72. running=1
  73. MaxLen buf$=2048
  74.  
  75. Repeat
  76.   ev.l=MUIWaitEvent
  77.   Select ev
  78.   Case -1
  79.     running=0
  80.   Case #ID_DISPLAY
  81.     *var.b=MUIGet(2,#MUIA_Dirlist_Path)
  82.     If (*var<>0 AND GetVar_(*var,&buf$,2048,#GVF_GLOBAL_ONLY|#GVF_BINARY_VAR)<>-1)
  83.       MUISet 4,#MUIA_Floattext_Text,Null(Peek$(&buf$))
  84.     Else
  85.       DisplayBeep_ 0
  86.     EndIf
  87.   Case #ID_DELETE
  88.     *var.b=MUIGet(2,#MUIA_Dirlist_Path)
  89.     If *var<>0
  90.       MUISet 4,#MUIA_Floattext_Text,0
  91.       DeleteFile_ *var
  92.       MUIDoMethod 2,#MUIM_List_Remove,#MUIV_List_Remove_Active
  93.     Else
  94.       DisplayBeep_ 0
  95.     EndIf
  96.   Case #ID_SAVE
  97.     *var.b=MUIGet(2,#MUIA_Dirlist_Path)
  98.     If *var<>0
  99.       MUISet 11,#MUIA_Application_Sleep,1
  100.       buf$="copy env:"+Peek$(FilePart_(*var))+" envarc:"+Peek$(FilePart_(*var))+Chr$(0)
  101.       Execute_ &buf$,0,0
  102.       MUISet 11,#MUIA_Application_Sleep,0
  103.     Else
  104.       DisplayBeep_ 0
  105.     EndIf
  106.   Case #ID_EDIT
  107.     *var.b=MUIGet(2,#MUIA_Dirlist_Path)
  108.     If *var<>0
  109.       MUISet 11,#MUIA_Application_Sleep,1
  110.       buf$="ed "+Chr$(34)+Peek$(*var)+Chr$(34)+Chr$(0)
  111.       Execute_ &buf$,0,0
  112.       MUISet 11,#MUIA_Application_Sleep,0
  113.       MUIDoMethod 10,#MUIM_Window_ScreenToFront,0
  114.     Else
  115.       DisplayBeep_ 0
  116.     EndIf
  117.   End Select
  118. Until running=0
  119.  
  120. MUICloseWindow 10
  121.  
  122. End
  123.